;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;
(defun c:selpv ( / this_selpv new_selpv)
  (Setq this_selpv (getvar "selectionpreview"))
  (if(< this_selpv 3)
    (setq new_selpv (1+ this_selpv))
    (setq new_selpv 0)
  )
  (setvar "selectionpreview" new_selpv)
  (princ (strcat"System variable SELECTIONPREVIEW "
                (COND
                  ((= new_selpv 0)
                   "is Off. ")
                  ((= new_selpv 1)
                   "is On when no commands are active. ")
                  ((= new_selpv 2)
                   "is On when a command prompts for object selection. ")
                  ((= new_selpv 3)
                   "is On when no commands are active and when a command prompts for object selection. ")
                )
         )
  )
  (princ)
)